100 IFPEEK(56)<>32THENPOKE56,32:CLR
110 IFDVTHEN130
120 DV=PEEK(186):IFDV<8THENDV=8
130 IFA=0THENA=1:LOAD"READER C800 LOW",DV,1
140 IFA=1THENA=2:LOAD"I-MENU $C000",DV,1
160 GOSUB270:POKE51253,DV
164 R1$=" 1. [210]EAD/[208]RINT [205][204] 103               "
165 R2$=" 2. [210]EAD/[208]RINT [204]AB 103              "
166 R3$=" 3. [210]UN [195][207][205][214][201][197][215]                     "
168 R5$=" 4. [210]ETURN [212]O [204][207][193][196][211][212][193][210]              [146]"
170 SYS49152,4,2,2,7,1,14,R1$,R2$,R3$,R5$
180 PRINT""SPC(12)"[204] [207][160][193] [196] [201] [206] [199] . . ."
190 GETA$:POKE186,DV
192 IFA$="1"THENSYS51200,"T.ML 103","[204][197][211][211][207][206] 103":POKE781,0:SYS59903:GOTO170
195 IFA$="2"THENSYS51200,"T.LAB 103","[204][193][194] [212][197][216][212]":POKE781,0:SYS59903:GOTO170
200 IFA$="3"THENPRINT"[147]"CHR$(142)"":POKE56,160:CLR:F$="COMVIEW"
220 IFA$="4"THENPOKE56,160:CLR:F$="HELLO CONNECT":POKE186,8
230 PRINT"[144]":PRINT""
240 PRINT "LOAD";CHR$(34);F$;CHR$(34)","PEEK(186)
250 PRINT"RUN"
260 POKE631,13:POKE632,13:POKE198,2:END
270 REMIFPEEK(787)=119THENRETURN
280 PRINT"[147]":POKE53280,0:POKE53281,0
290 POKE214,10:PRINT"[145]";
300 PRINT"[159][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][154][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223]";
310 FORI=1TO12:PRINT"[159][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][169][154][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223][223]";:NEXT:PRINT""
320 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT
330 POKE214,12:PRINT"[145]"TAB(2)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
340 FORI=1TO7:PRINTTAB(2)"[155]                                    [146][223]":NEXT
350 PRINTTAB(2)"[152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][223]"
360 PRINT"[169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][223][169][169][169][169][169][169][169][169][169][169][223][223][223][223][223][223][223][223][223][154][223]"
370 POKE214,14:SYS58732
380 FORI=1TO5:READA$
390 PRINTSPC(20-LEN(A$)/2)"[155]"A$:A$="":NEXT
400 F$="MYB BOOT":RETURN
410 DATA"[205] [204][160] [160]1[160]0 3","BY [210]ICK [206]ASH"
420 DATA"[214]1.0 [208]UBLISHED ON [204][207][193][196][211][212][193][210] #89","[211]UBSCRIPTIONS 1-800-831-2694"
430 DATA"[195]OPYRIGHT ([195]) 1991 [211]OFTDISK"
10000 SAVE"@0:ML 103 BOOT"